10 POKE53280,0:POKE53281,0:REM 90:02:15
20 PRINT"[147][156]    ** TPUG EDUCATIONAL DISK ED-5 **"
30 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
40 DIMA$(15)
50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
60 INPUT"CHOOSE(1-15):";A$
70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
90 FORT=1TO1500:NEXT:PRINT"[147]LOADING.......  "A$(A)
100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
59999 :
60001 DATA "PARTS OF SPEECH"
60002 DATA "NOUNS"
60003 DATA "PRONOUNS"
60004 DATA "PLURALS"
60005 DATA "HYPHENS"
60006 DATA "CONTRACTIONS"
60007 DATA "PUNCTUATION"
60008 DATA "GRAMMAR 1"
60009 DATA "INSERT"
60010 DATA "P'BLEM P'NOUNS"
60011 DATA "HOMONYMS"
60012 DATA "THERE THEIR"
60013 DATA "AFFECT EFFECT"
60014 DATA "TEACHER INFO"
60015 DATA "**"
60016 DATA "**"